! popup menu
VMoveTo #vpos$-#lineSkip-2
cell PopupMenuEdit
MenuItems local("BIRT")&"::"
MenuItems local("Adopted")&":adopted"
MenuItems local("Foster")&":foster"
MenuItems local("Sealing")&":sealing"
set controlsize "mini" fontsize 10
SizeToFit
#pediMenu = #cellWidth$+10
set width #pediMenu
#leftPedi=#rightMargin$-#rightSkip-#pediMenu
shift #leftPedi-#hpos$
help local("Click to change relationship to parents")
